5 CLS
10 INPUT"Vizszintes nagyits: (1-20):";FX
20 INPUT"Fggleges nagyits: (2-20):"; FY
30 INPUT"Melyik sornl fusson a szveg(10-150)";SO
40 POKE 25856,FX
50 POKE 25857,FY
60 D=PEEK(16458)*256+SO*32
70 X=(FY+1)*32:GOSUB 500:POKE 25858,LS,MS
80 X=D:GOSUB 500:POKE 25860,LS,MS
90 X=D+32:GOSUB500:POKE 25862,LS,MS
100 X=D+31:GOSUB500:POKE 25864,LS,MS
110 X=26000:GOSUB 500:POKE 25866,LS,MS
120 X=26100:GOSUB 500:POKE 25868,LS,MS
130 X=FY*32:GOSUB 500:POKE 25870,LS,MS
135 PRINT"KREM A FUTTATNI KIVNT SZVEGET!         ( A vgn <RETURN> )
136 PRINT:PRINT">";
140 GOSUB 200
145 CLS
150 I=CALL(28915)
200 K=26100
201 PRINTCHR$(1);:BEEP 100,20
203 W$=INKEY$:IF W$=""THEN 203
210 IF ASC(W$)=13 THEN RETURN
220 PRINTW$;:BEEP100,20
225 IF ASC(W$)=8 THEN IF K>26100 THEN K=K-1:POKEK,255:GOTO201 ELSE GOTO201
230 POKEK,ASC(W$),196
240 K=K+1:GOTO 201
500 MS=INT(X/256):LS=X-256*MS:RETURN
